home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / Fontographer® 4.0.2 / Disk 2 / PC Font Access / PC Font Access.rsrc / STR#_6010.txt < prev    next >
Text File  |  1993-06-17  |  549b  |  19 lines
  1. /BuildChar{^8 begin exch begin BC2 end end}B
  2.  
  3. {233 sub UVec exch get exec}ifelse}ifelse}B
  4.  
  5. /UCS{dup 200 lt{100 sub}{dup 233 lt{216 sub 100 mul add}
  6.  
  7. {100 mul add}{100 mul}{100 div}{closepath}{Sstrk}{Sg}]def
  8.  
  9. {ShowInt}{setlinecap}{setlinejoin}{gsave}{[}{Fill}{Eofill}{stroke}{SetWid}
  10.  
  11. /UVec[{moveto}{rlineto}{rcurveto}{ShowExt}{]concat}{Cache}{setlinewidth}
  12.  
  13. /Cache{NL 0 eq{setcachedevice/Sg{pop}store}{6{pop}repeat}ifelse}B
  14.  
  15. /SetWid{NL 0 eq{0 setcharwidth setgray}{pop setgray}ifelse}B
  16.  
  17. /ShowInt{/NL NL 1 add store BC2 grestore/NL NL 1 sub store}B
  18.  
  19.